home *** CD-ROM | disk | FTP | other *** search
/ Savor the Moment - Entert…ing Without Reservations / Savoe the Moment - Entertaining Without Reservations.iso / pc / BeOurGuest.dxr / 00072_movie script.ls < prev    next >
Encoding:
Text File  |  1999-10-05  |  605 b   |  35 lines
  1. global sc, gTimer
  2.  
  3. on startMovie
  4.   cursor(0)
  5.   set the timeoutLength to 5 * 60 * 60
  6.   tell window("miaw")
  7.     if the soundEnabled = 1 then
  8.       member("loop").volume = 150
  9.       play frame member("loop")
  10.     end if
  11.   end tell
  12. end
  13.  
  14. on soundchoice me
  15.   if sc = 1 then
  16.     set the soundLevel to 7
  17.     sc = 0
  18.     tell window("miaw")
  19.       member("loop").volume = 0
  20.       pause(member("loop"))
  21.     end tell
  22.   else
  23.     set the soundLevel to 0
  24.     sc = 1
  25.     tell window("miaw")
  26.       member("loop").volume = 150
  27.       play frame member("loop")
  28.     end tell
  29.   end if
  30. end
  31.  
  32. on timeout
  33.   play movie "show.dir"
  34. end
  35.